﻿Public Class frmThemNSD
    Dim frm As frmMain

    Private Sub btThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btThem.Click
        'kiem tra xem co nhap du fullname hay khong
        If (txtTenDayDu.Text = "") Then
            MessageBox.Show("Chưa nhập thông tin về tên đầy đủ của người dùng", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If

        'kiem tra xem cac truong nhap vao co qua dai hay khong
        If (txtTenDangNhap.Text.Length > 30 Or txtTenDayDu.Text.Length > 50 _
            Or txtPassword.Text.Length > 128 Or txtThongTin.Text.Length > 100) Then
            MessageBox.Show("Một số thông tin nhập quá dài. Hãy kiểm tra lại!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If

        'kiem tra xem 2 password co trung hay khong
        If (txtPassword.Text <> txtPassword2.Text) Then
            MessageBox.Show("Password không trùng nhau", "Thông báo", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
            Exit Sub
        End If

        Try
            'neu Password da trung nhau thi them vao co so du lieu
            Me.Cursor = Cursors.WaitCursor

            'doan nay them vao co so du lieu login va user
            Dim newUser As New CNguoiSuDung()
            newUser.LoginName = txtTenDangNhap.Text
            newUser.Pass = txtPassword.Text
            newUser.FullName = txtTenDayDu.Text
            newUser.GhiChu = txtThongTin.Text

            'thuc hien them nguoi su dung vao
            Dim kqth As Integer = newUser.themNSD()
            If (kqth = 2) Then
                MessageBox.Show("Đã tồn tại người sử dụng này.", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Me.Cursor = Cursors.Arrow
                Exit Sub
            End If

            'doc lai bang s_tblNguoiDung
            XL_DULIEU.LayDuLieuRaBang("select * from " + s_tblNguoiDung, frm.dtSet.Tables(s_tblNguoiDung))

            'goi ham update listBox ben co so du lieu
            frm.listNSD.Update()

            'thong bao them thanh cong
            If (kqth = 0) Then
                MessageBox.Show("Thêm thành công!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("Thêm không thành công.", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
            'dong form lai
            Me.Cursor = Cursors.Arrow
            'Me.Close()
        Catch ex As Exception
            MessageBox.Show("Thêm không thành công. Lỗi", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub
    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
    End Sub
    Public Sub New(ByVal f As frmMain)

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        frm = f
    End Sub
    Private Sub btThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btThoat.Click
        Me.Close()
    End Sub

    Private Sub btHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHuy.Click
        txtPassword.Text = ""
        txtPassword2.Text = ""
        txtTenDangNhap.Text = ""
        txtTenDayDu.Text = ""
        txtThongTin.Text = ""
    End Sub
End Class